home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 076-100 / scopedisk81 / asmtool1 / test4.asm < prev    next >
Assembly Source File  |  1995-03-19  |  1KB  |  40 lines
  1. ; TEST4.ASM by Warren A. Ring
  2. ;
  3. ; This program shows an example of how words can be extracted from a
  4. ; phrase.  This program allows you to enter a phrase, then it displays
  5. ; the individual words from that phrase.  Note that this example, which
  6. ; uses the "Scana" routine, treats all non-alpha-numeric characters as
  7. ; delimiters.  Thus, it skips over commas, semicolons, and other special
  8. ; characters just as if they were spaces.
  9.  
  10.    section code
  11.  
  12.    include "macros.asm"
  13.  
  14.    Start               ;Perform startup
  15.                        ; housekeeping
  16. X1 Display <'Enter a phrase: '>
  17.    ReadCon #Buffer     ;Get a line from the console
  18.    StrLen  #Buffer     ;If no characters were entered,
  19.    BEQ     X99         ; then jump to X99
  20.    SetScan #Buffer     ;Set to scan the console line
  21.    Display <'Words are:',LF>
  22. X2 Scana   #Word1      ;Scan the console line for a word
  23.    StrLen  #Word1      ;If no word was available,
  24.    BEQ     X1          ; then jump to X1
  25.    WritCon #Word1      ;Display the word
  26.    Crlf                ;Display a CR/LF
  27.    BRA     X2          ;Jump to X2
  28.  
  29. X99
  30.    Exit                ;Perform ending housekeeping, and exit
  31.  
  32.    include "warlib.asm"
  33.  
  34.    section data
  35.  
  36.    StrBuf  Buffer,16
  37.    StrBuf  Word1,16
  38.  
  39.    end
  40.